home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / t_os / joke / m_clock / source / tokei.bas < prev    next >
Encoding:
BASIC Source File  |  1995-02-19  |  3.4 KB  |  70 lines

  1. 30000 '********************************************************************
  2. 30010 '**     冗談ビデオソフト 「MultiClock」  V1.1              **
  3. 30030 '** テレビの時計の表示部分              By ちくちくうにうに        **
  4. 30040 '********************************************************************
  5. 30050 SCREEN 1,1,0:SCREEN@ 1:CLS
  6. 30060 LINE (0,0)-(319,239),PSET,[0,0,0,1],BF
  7. 30070 *FONT_CHECK
  8. 30080 IF FONT_FLAG=1 THEN DEF FONT "システム   12ドット"
  9. 30090 IF FONT_FLAG=2 THEN DEF FONT "明朝体     24ドット"
  10. 30100 IF FONT_FLAG=3 THEN DEF FONT "ゴシック体 24ドット"
  11. 30110 IF FONT_FLAG=4 THEN DEF FONT "教科書体   24ドット"
  12. 30120 IF FONT_FLAG=5 THEN DEF FONT "まるもじ   24ドット"
  13. 30130 IF FONT_FLAG>=6 THEN DEF FONT "システム   12ドット"
  14. 30140 SYMBOL(0,0),"0123456789:",1.5!,1.5!,7,,,1
  15. 30150 SYMBOL(0,1),"0123456789:",1.5!,1.5!,7,,,1
  16. 30160 DIM FONT%(312*12) '(24*13)
  17. 30170 FOR I=0 TO 11
  18. 30180   GET@A(13*I,0)-(13*(I+1)-1,23),FONT%,312*I
  19. 30190 NEXT
  20. 30200 CLS
  21. 30210 '
  22. 30220 SCREEN 1,1,2:GOSUB *準備
  23. 30230 '
  24. 30240 '===================================================================
  25. 30250 '                         メインルーチン
  26. 30260 '===================================================================
  27. 30270 SIMPOSE ON
  28. 30280 *繰り返し
  29. 30290  OLDTIME$=TIME$
  30. 30300  WHILE OLDTIME$=TIME$:WEND
  31. 30310 '
  32. 30320  GOSUB *時刻表示
  33. 30330 '
  34. 30340 GOTO *繰り返し
  35. 30350 '
  36. 30360 '===================================================================
  37. 30370 '                時刻の表示をするサブルーチン
  38. 30380 '===================================================================
  39. 30390 *時刻表示
  40. 30400  OH1$=NH1$:OH2$=NH2$
  41. 30410  OM1$=NM1$:OM2$=NM2$
  42. 30411  TMP$=LEFT$(TIME$,2) :IF VAL(TMP$)>=13 THEN TMP$=STR$(VAL(TMP$)-12)
  43. 30420  NH1$=LEFT$(TMP$,1)  :NH2$=RIGHT$(TMP$,1)
  44. 30430  NM1$=MID$(TIME$,4,1):NM2$=MID$(TIME$,5,1)
  45. 30440 '
  46. 30450  IF OH1$<>NH1$ THEN IF VAL(NH1$)<>0 THEN PUT@A(20+(13*0),20)-(20+(13*1-1),43),FONT%,,,,,(312*(VAL(NH1$))) ELSE PUT@A(20+(13*0),20)-(20+(13*1-1),43),FONT%,,,,,(312*11)
  47. 30460  IF OH2$<>NH2$ THEN                                                            PUT@A(25+(13*1),20)-(25+(13*2-1),43),FONT%,,,,,(312*(VAL(NH2$)))
  48. 30470  IF OM1$<>NM1$ THEN                                                            PUT@A(35+(13*3),20)-(35+(13*4-1),43),FONT%,,,,,(312*(VAL(NM1$)))
  49. 30480  IF OM2$<>NM2$ THEN                                                            PUT@A(40+(13*4),20)-(40+(13*5-1),43),FONT%,,,,,(312*(VAL(NM2$)))
  50. 30490  RETURN
  51. 30500 '
  52. 30510 '===================================================================
  53. 30520 '                画面の準備をするサブルーチン
  54. 30530 '===================================================================
  55. 30540 *準備
  56. 30545  TMP$=LEFT$(TIME$,2) :IF VAL(TMP$)>=13 THEN TMP$=STR$(VAL(TMP$)-12)
  57. 30550  NH1$=LEFT$(TMP$,1)  :NH2$=RIGHT$(TMP$,1)
  58. 30560  NM1$=MID$(TIME$,4,1):NM2$=MID$(TIME$,5,1)
  59. 30570 '
  60. 30580  IF VAL(NH1$)<>0 THEN PUT@A(20+(13*0),20)-(20+(13*1-1),43),FONT%,,,,,(312*(VAL(NH1$))) ELSE PUT@A(20+(13*0),20)-(20+(13*1-1),43),FONT%,,,,,(312*11)
  61. 30590  PUT@A(25+(13*1),20)-(25+(13*2-1),43),FONT%,,,,,(312*(VAL(NH2$)))
  62. 30600  PUT@A(30+(13*2),20)-(30+(13*3-1),43),FONT%,,,,,(312*10)
  63. 30610  PUT@A(35+(13*3),20)-(35+(13*4-1),43),FONT%,,,,,(312*(VAL(NM1$)))
  64. 30620  PUT@A(40+(13*4),20)-(40+(13*5-1),43),FONT%,,,,,(312*(VAL(NM2$)))
  65. 30630  MOUSE 0:ON MOUSE(4) GOSUB *MENU:MOUSE(4) ON
  66. 30640  RETURN
  67. 30650 *MENU
  68. 30660 'END
  69. 30670 ERASE FONT%:MOUSE 5:RUN "M_CLOCK.BAS"
  70.